<%

Function IsNumero(numero)

	if numero<>"" then
	
		if isNumeric(numero) then
				
				IsNumero= TRUE
		
		else
		
			IsNumero= False
		
		End If
	
	Else
	
		IsNumero = False
		
	End If
		
End Function

Function FInt(numero)

	if numero<>"" then
	
		FInt = CInt(numero)
	
	Else
	
		FInt = 0
		
	End If
		
End Function

%>